home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / util / edit / jed207.lha / src / jed.lha / stksize.a < prev    next >
Text File  |  1992-10-11  |  367b  |  21 lines
  1.  
  2.         ; STKSIZE.A
  3.         ;
  4.         ; returns the size of available    stack, doesn't take into
  5.         ; account the stuff used by this routine.
  6.  
  7.         section    text,code
  8.         xdef    _stksize
  9.  
  10. tc_SPLower    EQU    58
  11. ThisTask    EQU    276
  12.  
  13. ;Prototype    LONG    stksize(VOID);
  14. _stksize:
  15.         move.l    4.w,a0            ; EXEC
  16.         move.l    ThisTask(a0),a0        ; me
  17.         move.l    sp,d0
  18.         sub.l    tc_SPLower(a0),d0   ; available    stack
  19.         rts
  20.  
  21.